#!/usr/bin/perl -w
use strict;

open (FH , "CSSColorNames.htm");
    my @html = <FH>;
close FH;

foreach (@html) {
    if ($_ =~ /color=\w+">(\w+)<\/a>/) {
        print lc($1) , "\n";
    }
}

exit(1);


